home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PRIM
/
INDENT.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
5KB
|
61 lines
;;; compiled by @win386 on Sat Mar 13 01:38:20 1993
;;; from file c:/src/lucid-19.4/lisp/prim/indent.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'indent-according-to-mode #[nil " ç" [indent-line-function] 1 "\
Indent line in proper way for current major mode." nil])
(fset 'indent-for-tab-command #[nil "┴=½â┬ ç ç" [indent-line-function indent-to-left-margin insert-tab] 2 "\
Indent line in proper way for current major mode." nil])
(fset 'insert-tab #[nil "½â┴ ê\n½â├cçiÑT_jç" [abbrev-mode expand-abbrev indent-tabs-mode 9 tab-width] 3])
(fset 'indent-rigidly #[(start end arg) "èbê┴ \nbên¼â├yê`W½₧─ `╞╟wê`|êl¼è╚╔\n\\]╔\"ê)├yê¬]╟ëôê╟ë)ç" [end point-marker start 1 current-indentation indent " " nil indent-to 0 arg zmacs-region-stays] 4 "\
Indent all lines starting in the region sideways by ARG columns.
Called from a program, takes three arguments, START, END and ARG." "r\np"])
(fset 'indent-to-left-margin #[nil "└ U«£┬è─yê`┼┬wê`|ê jê`)`W¡éb)ç" [current-indentation left-margin nil epos 0 " "] 3])
(defvar indent-region-function nil "\
Function which is short cut to indent each line in region with TAB.
A value of nil means really perform TAB on each line.")
(fset 'indent-region #[(start end arg) "¼╒ ½ñè\nbê├ bê┼ !`\nW¡Ä╟!¼â cê╚yê¬m*ç ½å \n\"çè\nbê├ bên¼â╚yê`\nW½ë\n ê╚yê¬r\n╦ëô)ç╠!è\nbê├ bên¼â╚yê`\nW½ò`═╦wê`|êl¼à╬╧\"ê╚yê¬f\n╦ëô)ç" [arg fill-prefix end point-marker start regexp-quote regexp looking-at 1 indent-region-function indent-line-function nil prefix-numeric-value " " indent-to 0] 3 "\
Indent each nonblank line in the region.
With no argument, indent each line with TAB.
(If there is a fill prefix, make each line start with the fill prefix.)
With argument COLUMN, indent each line to that column.
Called from a program, takes three args: START, END and COLUMN." "r\nP"])
(fset 'indent-relative-maybe #[nil "└┴!ç" [indent-relative t] 2 "\
Indent a new line like previous nonblank line." nil])
(fset 'indent-relative #[(&optional unindented-ok) "½â┴ êi┬è┼yê╞╟┬╚#½▒è╔yê`)\n╦!êiV½ä╠╔!ê═╬!¼ë¼à╨\nwê╤\nwê`\nU¼éi))½ú╥ `╤┬xê`|ê╘┼\"ê`V½äbê┬ëô)¬é╒ *ç" [abbrev-mode expand-abbrev nil indent start-column 0 re-search-backward "^[^\n]" t 1 end move-to-column backward-char looking-at "[ ]" unindented-ok "^ " " " point-marker opoint indent-to tab-to-tab-stop] 4 "\
Space out to under next indent point in previous nonblank line.
An indent point is a non-whitespace character following whitespace.
If the previous nonblank line has no indent points beyond
the column point starts at, `tab-to-tab-stop' is done instead." "P"])
(defvar tab-stop-list '(8 16 24 32 40 48 56 64 72 80 88 96 104 112 120) "\
*List of tab stop positions used by `tab-to-tab-stops'.")
(defvar edit-tab-stops-map nil "\
Keymap used in `edit-tab-stops'.")
(byte-code "¼Å┴ ┬├─#ê┬┼─#ê┴ç" [edit-tab-stops-map make-sparse-keymap define-key "" edit-tab-stops-note-changes ""] 4)
(defvar edit-tab-stops-buffer nil "\
Buffer whose tab stops are being edited--in case
the variable `tab-stop-list' is local in that buffer.")
(fset 'edit-tab-stops #[nil "p┴┬├!!ê─!ê╞╟!ê╚╔╩!ê╦═ êë½Æ╨@╤\"ê╥cêAë¼n)╤╘cê╒W½æ╓\\cê╫cêTë¬k╘cê╤V½ï╪cêSë¬q)┘cêebç" [edit-tab-stops-buffer switch-to-buffer get-buffer-create "*Tab Stops*" use-local-map edit-tab-stops-map make-local-variable indent-tabs-mode nil overwrite-mode 1 t truncate-lines erase-buffer tab-stop-list tabs indent-to 0 58 count 10 8 48 " " "0123456789" "\nTo install changes, type C-c C-c"] 4 "\
Edit the tab stops used by tab-to-tab-stop.
Creates a buffer *Tab Stops* containing text describing the tab stops.
A colon indicates a column where there is a tab stop.
You can add or remove colons and then do C-c C-c to make changes take effect." nil])
(fset 'edit-tab-stops-note-changes #[nil "└è┬bê└ê├─└┼#½åi B¬s)╞p╟!ê!ê )╩╦!ç" [nil tabs 1 search-backward ":" t bury-buffer switch-to-buffer edit-tab-stops-buffer tab-stop-list message "Tab stops installed"] 4 "\
Put edited tab stops into effect." nil])
(fset 'tab-to-tab-stop #[nil "½â┴ ê\në½îi@Y½åAë¼t½à@j¬é─c)ç" [abbrev-mode expand-abbrev tab-stop-list tabs 32] 3 "\
Insert spaces or tabs to next defined tab-stop column.
The variable `tab-stop-list' is a list of columns at which there are tab stops.
Use \\[edit-tab-stops] to edit them interactively." nil])
(fset 'move-to-tab-stop #[nil "ë½îi @Y½å Aë¼t ¡à┬ @├\")ç" [tab-stop-list tabs move-to-column t] 4 "\
Move point to next defined tab-stop column.
The variable `tab-stop-list' is a list of columns at which there are tab stops.
Use \\[edit-tab-stops] to edit them interactively." nil])